home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Micro on the Apple Volume 1 (1981)(Micro Ink)[no boot].zip / Micro on the Apple Volume 1 (1981)(Micro Ink)[no boot].do / APPLE LIFE.int < prev    next >
Text File  |  1996-12-24  |  2KB  |  69 lines
  1. 1 REM  ************************
  2. 2 REM  *                      *
  3. 3 REM  * LIFE FOR YOUR APPLE  *
  4. 4 REM  *  RICHARD F. SUITOR   *
  5. 5 REM  *                      *
  6. 6 REM  *         LIFE         *
  7. 7 REM  *                      *
  8. 8 REM  *  COPYRIGHT (C) 1981  *
  9. 9 REM  *    MICRO INK, INC.   *
  10. 10 REM  * CHELMSFORD, MA 01824 *
  11. 11 REM  *  ALL RIGHTS RESERVED *
  12. 12 REM  *                      *
  13. 13 REM  ************************
  14. 14 REM 
  15. 15 CALL -936
  16. 50 TEXT :GEN=2088:MOP=2265
  17. 60 DIM A$(7)
  18. 70 K1=1:K2=1:KBD=-16384
  19. 99 GOTO 1000
  20. 100 REM 
  21. 102  POKE -16302,0
  22. 103 GOTO 130
  23. 104 FOR I=1 TO K3
  24. 105 CALL GEN
  25. 107 FOR K=1 TO K1:NEXT K
  26. 110 CALL MOP
  27. 112 FOR K=1 TO K2:NEXT K
  28. 120 NEXT I
  29. 130 REM 
  30. 131 KX=PDL (0)-10
  31. 132 IF KX>240 THEN KX=KX1
  32. 135 IF KX<0 THEN KX=0
  33. 140 K1=KX*6
  34. 150 K2=KX*2
  35. 155 K3=500/(K1+50)+1
  36. 156 IF  PEEK (KBD)=174 THEN 156
  37. 157 IF  PEEK (KBD)=160 THEN 1000
  38. 158 IF  PEEK (KBD)<>141 THEN 104
  39. 165 TEXT 
  40. 170 END 
  41. 1000 GR 
  42. 1010 CALL -936
  43. 1020 INPUT "NO PADDLE TIME INTERVAL ",KX1
  44. 1100 COLOR= 11:INPUT "INPUT X,Y ",X,Y
  45. 1105 IF Y<0 THEN 1800
  46. 1110 IF X<0 OR Y<0 THEN 2500
  47. 1120 IF X>39 OR Y>39 THEN 1100
  48. 1130 PLOT X,Y:GOTO 1100
  49. 1800 INPUT "X DIRECTION LIMITS ",I1,I2
  50. 1810 IF I1<0 OR I2>39 OR I1>I2 THEN 1800
  51. 1820 INPUT "Y DIRECTION LIMITS ",J1,J2
  52. 1830 IF J1<0 OR J2>47 OR J1>J2 THEN 1820
  53. 2000 CALL -936:GR 
  54. 2001  POKE -16302,0
  55. 2002 CALL -1998
  56. 2005 FOR I=I1 TO I2
  57. 2010 FOR J=J1 TO J2:COLOR= 11:IF  RND (X) THEN COLOR= 0
  58. 2020 PLOT I,J
  59. 2030 NEXT J
  60. 2040 NEXT I
  61. 2100 GOTO 100
  62. 2500  POKE -16302,0
  63. 2510 COLOR= 0
  64. 2520 FOR K=40 TO 47
  65. 2530 HLIN 0,39 AT K
  66. 2540 NEXT K
  67. 2590 GOTO 100
  68. 9000 END 
  69.